home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 47.7z / BS1 part 47 / HiSoft BASIC v1.04 (1989)(HiSoft)(Disk 2 of 2)[h Band].7z / HiSoft BASIC v1.04 (1989)(HiSoft)(Disk 2 of 2)[h Band].adf / graphics / sinelines3.bas < prev   
Encoding:
BASIC Source File  |  1988-12-02  |  181 b   |  10 lines
  1. Colors=4
  2. SCREEN 1,640,200,Colors,2
  3. WINDOW 2,"Sine lines",,15,1
  4. FOR x=0 TO 617
  5. Col=Col+1: IF Col>7 THEN Col=0
  6. y1=90+80*SIN(x/40)
  7. y2=90+70*SIN(x/60)
  8. LINE (x,y1)-(617-x,y2),Col
  9. NEXT x
  10.